ZetaProducer.RuntimeBusinessLogic.Code.Scripting.InterpreterException

-----------------

Skript-Fehler:
---------------			  
Objekt erforderlich: 'assetCategory'
---------------			  
Zeile 433, Spalte 14.
---------------			  
Quelltext: 
001: option explicit
002: 
003: ExecuteScript__
004: 
(...Versteckte Zeilen...)
367: 
368: 
369: 
370: public sub ExecuteScript__()
371: 
372: 
373: dim article
374: set article = Context.Scope.CurrentPageItem
375: dim items
376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )
377: 
378: dim hassame
379: hassame = false
380: 
381: dim i
382: for i=0 to items.Count-1
383: dim item
384: set item = items(i)
385: 
386: if item.IsActive and (item.StyleName = "Bilderalbum" or item.StyleName = "Einzelnes Bild") then
387: 	if item.ID = article.ID  and not hassame then
388: 
389: 
390:     Context.Write "" & vbCrLf
391:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/jquery.js""></script>" & vbCrLf
392:     Context.Write ""
393: 
394:  if Context.Scope.CurrentPage.GetInheritedAttribute("picgallery_language").Value = "de" then 
395: 
396:     Context.Write "" & vbCrLf
397:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_de.js""></script>" & vbCrLf
398:     Context.Write ""
399: 
400:  elseif Context.Scope.CurrentPage.GetInheritedAttribute("picgallery_language").Value = "en" then 
401: 
402:     Context.Write "" & vbCrLf
403:     Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_en.js""></script>" & vbCrLf
404:     Context.Write ""
405: 
406:  end if 
407: 
408:     Context.Write "" & vbCrLf
409:     Context.Write "<script type=""text/javascript"">" & vbCrLf
410:     Context.Write "document.getElementsByTagName(""body"")[0].style.height = ""100%"";" & vbCrLf
411:     Context.Write "document.getElementsByTagName(""html"")[0].style.height = ""100%"";" & vbCrLf
412:     Context.Write "document.getElementsByTagName(""body"")[0].style.minHeight = ""100%"";" & vbCrLf
413:     Context.Write "document.getElementsByTagName(""html"")[0].style.minHeight = ""100%"";" & vbCrLf
414:     Context.Write "</script>" & vbCrLf
415:     Context.Write ""
416: 
417: 	end if
418: hassame = true
419: end if
420: next
421: 
422: 
423:     Context.Write "" & vbCrLf
424:     Context.Write "<a name=""a1194""></a>" & vbCrLf
425:     Context.Write ""
426: 
427: 
428: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue("Album")
429: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("Breite der Vorschaubilder")
430: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)
431: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue("Anzahl Vorschaubilder pro Zeile")
432: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )
433: dim images : set images = assetCategory.Images
434:  
435: dim rowIndex : dim colIndex : dim index
436: dim rowCount : rowCount = images.Count \ imagesPerRow
437: if images.Count mod imagesPerRow > 0 then 
438:     rowCount = rowCount + 1
439: end if
440: 
441: Context.Scope.Library.Log images.Count & " images..."
442: Context.Scope.Library.CheckAsyncStopProcessing
443: 
444: ' Must use a prefix to allow multiple instances of the JavaScript on the page.
445: dim prefix
446: prefix = "prefix_1194_"
447: 
448: 
449:     Context.Write "" & vbCrLf
450:     Context.Write "<a name="""
451: 
452: Context.Write prefix
453: 
454:     Context.Write "thumbnails""></a>" & vbCrLf
455:     Context.Write "<div class=""articlewrapper""><div class=""articlearea"">" & vbCrLf
456:     Context.Write ""
457: 
458:  if Context.Scope.CurrentArticle.Name <> "" then 
459: 
460:     Context.Write "<h1>"
461: 
462: Context.Write Context.Scope.CurrentArticle.Name
463: 
464:     Context.Write "</h1>"
465: 
466:  end if 
467: 
468:     Context.Write "" & vbCrLf
469:     Context.Write "<script type=""text/javascript"">" & vbCrLf
470:     Context.Write "var "
471: 
472: Context.Write prefix
473: 
474:     Context.Write "currentIndex = 0;" & vbCrLf
475:     Context.Write "" & vbCrLf
476:     Context.Write "var "
477: 
478: Context.Write prefix
479: 
480:     Context.Write "g = new Array();" & vbCrLf
481:     Context.Write "var "
482: 
483: Context.Write prefix
484: 
485:     Context.Write "t = new Array();" & vbCrLf
486:     Context.Write "" & vbCrLf
487:     Context.Write ""
488: 
489: 
490: for index=0 to images.Count-1
491: 
492:     dim image
493:     set image = images.Item(index)
494: 
495:     Context.Scope.Library.CheckAsyncStopProcessing
496: 
497: 
498:     Context.Write "" & vbCrLf
499:     Context.Write "    "
500: 
501: Context.Write prefix
502: 
503:     Context.Write "g["
504: 
505: Context.Write index
506: 
507:     Context.Write "] = """
508: 
509: Context.Write image.VirtualPathRelative
510: 
511:     Context.Write """; " & vbCrLf
512:     Context.Write "    "
513: 
514: Context.Write prefix
515: 
516:     Context.Write "t["
517: 
518: Context.Write index
519: 
520:     Context.Write "] = """
521: 
522: Context.Write image.Name
523: 
524:     Context.Write """;" & vbCrLf
525:     Context.Write ""
526: 
527: next
528: 
529:     Context.Write "" & vbCrLf
530:     Context.Write "" & vbCrLf
531:     Context.Write "function "
532: 
533: Context.Write prefix
534: 
535:     Context.Write "setimage( index )" & vbCrLf
536:     Context.Write "{" & vbCrLf
537:     Context.Write "    var img = new Image();" & vbCrLf
538:     Context.Write "    img.src = "
539: 
540: Context.Write prefix
541: 
542:     Context.Write "g[index];" & vbCrLf
543:     Context.Write "    window.document.images["""
544: 
545: Context.Write prefix
546: 
547:     Context.Write "pic""].src = img.src;" & vbCrLf
548:     Context.Write "    document.getElementById("""
549: 
550: Context.Write prefix
551: 
552:     Context.Write "desc"").innerHTML = "
553: 
554: Context.Write prefix
555: 
556:     Context.Write "t[index];" & vbCrLf
557:     Context.Write "    "
558: 
559: Context.Write prefix
560: 
561:     Context.Write "currentIndex = index;" & vbCrLf
562:     Context.Write "}" & vbCrLf
563:     Context.Write "</script>" & vbCrLf
564:     Context.Write "<table class=""zpSO-PictureGallery"" cellpadding=""0"" cellspacing=""9"" border=""0"">" & vbCrLf
565:     Context.Write ""
566: 
567: 
568: ' -- Build the thumbnails grid.
569: index = 0
570: for rowIndex = 0 to rowCount-1
571: 
572: 
573:     Context.Write "" & vbCrLf
574:     Context.Write "<tr>" & vbCrLf
575:     Context.Write "    "
576: 
577: 
578:     for colIndex = 0 to imagesPerRow-1
579:     
580: 
581:     Context.Write "" & vbCrLf
582:     Context.Write "        "
583: 
584: 
585:         if index<=images.Count-1 then
586:             set image = images.Item(index)
587: 
588: 			if image.height > image.width then
589: 				thumbnailWidth = thumbnailHeight
590: 			else
591: 				thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("Breite der Vorschaubilder")
592: 			end if
593: 		
594:             if image.CheckCreateThumbnail( thumbnailWidth ) then
595:               Context.Scope.Library.Log "Erstelle Vorschaubild " & image.Name
596:             else
597:               Context.Scope.Library.CheckAsyncStopProcessing
598:             end if
599:         
600: 
601:     Context.Write "" & vbCrLf
602:     Context.Write "            <td "
603: 
604:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then 
605: 
606:     Context.Write "class=""zpSO-PictureGallery-tdx"" style=""text-align:center;vertical-align:bottom"""
607: 
608:  else 
609: 
610:     Context.Write "class=""zpSO-PictureGallery-td"" style=""text-align:center;vertical-align:middle"""
611: 
612:  end if 
613: 
614:     Context.Write ">" & vbCrLf
615:     Context.Write "            " & vbTab & "<a href="""
616: 
617: Context.Write image.VirtualPathRelative
618: 
619:     Context.Write """ title="""
620: 
621: Context.Write image.Description
622: 
623:     Context.Write """ class=""thickbox"" rel=""gallery"
624: 
625: Context.Write article.ID
626: 
627:     Context.Write """>" & vbCrLf
628:     Context.Write "            " & vbTab & "" & vbTab & "<img class=""zpSO-PictureGallery-img"" src="""
629: 
630: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )
631: 
632:     Context.Write """ border=""0"" alt="""" />" & vbCrLf
633:     Context.Write "            " & vbTab & "</a>" & vbCrLf
634:     Context.Write "                "
635: 
636:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then 
637: 
638:     Context.Write "" & vbCrLf
639:     Context.Write "                " & vbTab & "<div class=""bildunterschrift"">" & vbCrLf
640:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
641: 
642:  if Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 then 
643: 
644:     Context.Write "<span class=""zpSO-PictureGallery-number"">"
645: 
646: Context.Write index+1
647: 
648:     Context.Write "</span>"
649: 
650:  end if 
651: 
652:     Context.Write "" & vbCrLf
653:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
654: 
655:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
656: 
657:     Context.Write "<span class=""zpSO-PictureGallery-name"">"
658: 
659: Context.Write image.Name
660: 
661:     Context.Write "</span>"
662: 
663:  end if 
664: 
665:     Context.Write "" & vbCrLf
666:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
667: 
668:  if Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then 
669: 
670:     Context.Write "" & vbCrLf
671:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
672: 
673:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
674: 
675:     Context.Write "<br />"
676: 
677:  end if 
678: 
679:     Context.Write "<span class=""zpSO-PictureGallery-desc"">"
680: 
681: Context.Write image.Description
682: 
683:     Context.Write "</span>" & vbCrLf
684:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
685: 
686:  end if 
687: 
688:     Context.Write "" & vbCrLf
689:     Context.Write "                " & vbTab & "</div>" & vbCrLf
690:     Context.Write "                "
691: 
692:  end if 
693: 
694:     Context.Write "" & vbCrLf
695:     Context.Write "            </td>" & vbCrLf
696:     Context.Write "        "
697: 
698: else
699: 
700:     Context.Write "" & vbCrLf
701:     Context.Write "            <td>&nbsp;</td>" & vbCrLf
702:     Context.Write "        "
703: 
704: end if
705: 
706:     Context.Write "" & vbCrLf
707:     Context.Write "    "
708: 
709: 
710:         index = index + 1
711:     next
712:     
713: 
714:     Context.Write "" & vbCrLf
715:     Context.Write "</tr>" & vbCrLf
716:     Context.Write ""
717: 
718: next
719: 
720:     Context.Write "" & vbCrLf
721:     Context.Write "</table>" & vbCrLf
722:     Context.Write "</div></div>"
723: 
724: end sub
725:

-----------------

bei ZetaProducer.RuntimeBusinessLogic.Code.Scripting.BaseInterpreter.Run()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.FormatGridItem()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderDispatcher.DoProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderPage.RenderCode(String renderText)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderPage.CreatePage()
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderEngine.CreatePage(WebPage page)
   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)
   bei ZetaProducer.Main.UI.BuildPublish.Simple.SimpleBuildPublishForm.DoWorkBuild(Object sender, DoWorkEventArgs e)
   bei ZetaProducer.Main.UI.BuildPublish.Common.AsyncRenderGuiBinder._bw_DoWork(Object sender, DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)

InterpreterException
{
	Message="Skript-Fehler:\\r\\n---------------\\t\\t\\t  \\r\\nObjekt erforderlich: \\'assetCategory\\'\\r\\n---------------\\t\\t\\t  \\r\\nZeile 433, Spalte 14.\\r\\n---------------\\t\\t\\t  \\r\\nQuelltext: \\r\\n001: option explicit\\r\\n002: \\r\\n003: ExecuteScript__\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n367: \\r\\n368: \\r\\n369: \\r\\n370: public sub ExecuteScript__()\\r\\n371: \\r\\n372: \\r\\n373: dim article\\r\\n374: set article = Context.Scope.CurrentPageItem\\r\\n375: dim items\\r\\n376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )\\r\\n377: \\r\\n378: dim hassame\\r\\n379: hassame = false\\r\\n380: \\r\\n381: dim i\\r\\n382: for i=0 to items.Count-1\\r\\n383: dim item\\r\\n384: set item = items(i)\\r\\n385: \\r\\n386: if item.IsActive and (item.StyleName = \\"Bilderalbum\\" or item.StyleName = \\"Einzelnes Bild\\") then\\r\\n387: \\tif item.ID = article.ID  and not hassame then\\r\\n388: \\r\\n389: \\r\\n390:     Context.Write \\"\\" & vbCrLf\\r\\n391:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/jquery.js\\"\\"></script>\\" & vbCrLf\\r\\n392:     Context.Write \\"\\"\\r\\n393: \\r\\n394:  if Context.Scope.CurrentPage.GetInheritedAttribute(\\"picgallery_language\\").Value = \\"de\\" then \\r\\n395: \\r\\n396:     Context.Write \\"\\" & vbCrLf\\r\\n397:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_de.js\\"\\"></script>\\" & vbCrLf\\r\\n398:     Context.Write \\"\\"\\r\\n399: \\r\\n400:  elseif Context.Scope.CurrentPage.GetInheritedAttribute(\\"picgallery_language\\").Value = \\"en\\" then \\r\\n401: \\r\\n402:     Context.Write \\"\\" & vbCrLf\\r\\n403:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_en.js\\"\\"></script>\\" & vbCrLf\\r\\n404:     Context.Write \\"\\"\\r\\n405: \\r\\n406:  end if \\r\\n407: \\r\\n408:     Context.Write \\"\\" & vbCrLf\\r\\n409:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n410:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n411:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n412:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n413:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n414:     Context.Write \\"</script>\\" & vbCrLf\\r\\n415:     Context.Write \\"\\"\\r\\n416: \\r\\n417: \\tend if\\r\\n418: hassame = true\\r\\n419: end if\\r\\n420: next\\r\\n421: \\r\\n422: \\r\\n423:     Context.Write \\"\\" & vbCrLf\\r\\n424:     Context.Write \\"<a name=\\"\\"a1194\\"\\"></a>\\" & vbCrLf\\r\\n425:     Context.Write \\"\\"\\r\\n426: \\r\\n427: \\r\\n428: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue(\\"Album\\")\\r\\n429: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n430: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)\\r\\n431: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue(\\"Anzahl Vorschaubilder pro Zeile\\")\\r\\n432: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )\\r\\n433: dim images : set images = assetCategory.Images\\r\\n434:  \\r\\n435: dim rowIndex : dim colIndex : dim index\\r\\n436: dim rowCount : rowCount = images.Count \\ imagesPerRow\\r\\n437: if images.Count mod imagesPerRow > 0 then \\r\\n438:     rowCount = rowCount + 1\\r\\n439: end if\\r\\n440: \\r\\n441: Context.Scope.Library.Log images.Count & \\" images...\\"\\r\\n442: Context.Scope.Library.CheckAsyncStopProcessing\\r\\n443: \\r\\n444: \\' Must use a prefix to allow multiple instances of the JavaScript on the page.\\r\\n445: dim prefix\\r\\n446: prefix = \\"prefix_1194_\\"\\r\\n447: \\r\\n448: \\r\\n449:     Context.Write \\"\\" & vbCrLf\\r\\n450:     Context.Write \\"<a name=\\"\\"\\"\\r\\n451: \\r\\n452: Context.Write prefix\\r\\n453: \\r\\n454:     Context.Write \\"thumbnails\\"\\"></a>\\" & vbCrLf\\r\\n455:     Context.Write \\"<div class=\\"\\"articlewrapper\\"\\"><div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n456:     Context.Write \\"\\"\\r\\n457: \\r\\n458:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n459: \\r\\n460:     Context.Write \\"<h1>\\"\\r\\n461: \\r\\n462: Context.Write Context.Scope.CurrentArticle.Name\\r\\n463: \\r\\n464:     Context.Write \\"</h1>\\"\\r\\n465: \\r\\n466:  end if \\r\\n467: \\r\\n468:     Context.Write \\"\\" & vbCrLf\\r\\n469:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n470:     Context.Write \\"var \\"\\r\\n471: \\r\\n472: Context.Write prefix\\r\\n473: \\r\\n474:     Context.Write \\"currentIndex = 0;\\" & vbCrLf\\r\\n475:     Context.Write \\"\\" & vbCrLf\\r\\n476:     Context.Write \\"var \\"\\r\\n477: \\r\\n478: Context.Write prefix\\r\\n479: \\r\\n480:     Context.Write \\"g = new Array();\\" & vbCrLf\\r\\n481:     Context.Write \\"var \\"\\r\\n482: \\r\\n483: Context.Write prefix\\r\\n484: \\r\\n485:     Context.Write \\"t = new Array();\\" & vbCrLf\\r\\n486:     Context.Write \\"\\" & vbCrLf\\r\\n487:     Context.Write \\"\\"\\r\\n488: \\r\\n489: \\r\\n490: for index=0 to images.Count-1\\r\\n491: \\r\\n492:     dim image\\r\\n493:     set image = images.Item(index)\\r\\n494: \\r\\n495:     Context.Scope.Library.CheckAsyncStopProcessing\\r\\n496: \\r\\n497: \\r\\n498:     Context.Write \\"\\" & vbCrLf\\r\\n499:     Context.Write \\"    \\"\\r\\n500: \\r\\n501: Context.Write prefix\\r\\n502: \\r\\n503:     Context.Write \\"g[\\"\\r\\n504: \\r\\n505: Context.Write index\\r\\n506: \\r\\n507:     Context.Write \\"] = \\"\\"\\"\\r\\n508: \\r\\n509: Context.Write image.VirtualPathRelative\\r\\n510: \\r\\n511:     Context.Write \\"\\"\\"; \\" & vbCrLf\\r\\n512:     Context.Write \\"    \\"\\r\\n513: \\r\\n514: Context.Write prefix\\r\\n515: \\r\\n516:     Context.Write \\"t[\\"\\r\\n517: \\r\\n518: Context.Write index\\r\\n519: \\r\\n520:     Context.Write \\"] = \\"\\"\\"\\r\\n521: \\r\\n522: Context.Write image.Name\\r\\n523: \\r\\n524:     Context.Write \\"\\"\\";\\" & vbCrLf\\r\\n525:     Context.Write \\"\\"\\r\\n526: \\r\\n527: next\\r\\n528: \\r\\n529:     Context.Write \\"\\" & vbCrLf\\r\\n530:     Context.Write \\"\\" & vbCrLf\\r\\n531:     Context.Write \\"function \\"\\r\\n532: \\r\\n533: Context.Write prefix\\r\\n534: \\r\\n535:     Context.Write \\"setimage( index )\\" & vbCrLf\\r\\n536:     Context.Write \\"{\\" & vbCrLf\\r\\n537:     Context.Write \\"    var img = new Image();\\" & vbCrLf\\r\\n538:     Context.Write \\"    img.src = \\"\\r\\n539: \\r\\n540: Context.Write prefix\\r\\n541: \\r\\n542:     Context.Write \\"g[index];\\" & vbCrLf\\r\\n543:     Context.Write \\"    window.document.images[\\"\\"\\"\\r\\n544: \\r\\n545: Context.Write prefix\\r\\n546: \\r\\n547:     Context.Write \\"pic\\"\\"].src = img.src;\\" & vbCrLf\\r\\n548:     Context.Write \\"    document.getElementById(\\"\\"\\"\\r\\n549: \\r\\n550: Context.Write prefix\\r\\n551: \\r\\n552:     Context.Write \\"desc\\"\\").innerHTML = \\"\\r\\n553: \\r\\n554: Context.Write prefix\\r\\n555: \\r\\n556:     Context.Write \\"t[index];\\" & vbCrLf\\r\\n557:     Context.Write \\"    \\"\\r\\n558: \\r\\n559: Context.Write prefix\\r\\n560: \\r\\n561:     Context.Write \\"currentIndex = index;\\" & vbCrLf\\r\\n562:     Context.Write \\"}\\" & vbCrLf\\r\\n563:     Context.Write \\"</script>\\" & vbCrLf\\r\\n564:     Context.Write \\"<table class=\\"\\"zpSO-PictureGallery\\"\\" cellpadding=\\"\\"0\\"\\" cellspacing=\\"\\"9\\"\\" border=\\"\\"0\\"\\">\\" & vbCrLf\\r\\n565:     Context.Write \\"\\"\\r\\n566: \\r\\n567: \\r\\n568: \\' -- Build the thumbnails grid.\\r\\n569: index = 0\\r\\n570: for rowIndex = 0 to rowCount-1\\r\\n571: \\r\\n572: \\r\\n573:     Context.Write \\"\\" & vbCrLf\\r\\n574:     Context.Write \\"<tr>\\" & vbCrLf\\r\\n575:     Context.Write \\"    \\"\\r\\n576: \\r\\n577: \\r\\n578:     for colIndex = 0 to imagesPerRow-1\\r\\n579:     \\r\\n580: \\r\\n581:     Context.Write \\"\\" & vbCrLf\\r\\n582:     Context.Write \\"        \\"\\r\\n583: \\r\\n584: \\r\\n585:         if index<=images.Count-1 then\\r\\n586:             set image = images.Item(index)\\r\\n587: \\r\\n588: \\t\\t\\tif image.height > image.width then\\r\\n589: \\t\\t\\t\\tthumbnailWidth = thumbnailHeight\\r\\n590: \\t\\t\\telse\\r\\n591: \\t\\t\\t\\tthumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n592: \\t\\t\\tend if\\r\\n593: \\t\\t\\r\\n594:             if image.CheckCreateThumbnail( thumbnailWidth ) then\\r\\n595:               Context.Scope.Library.Log \\"Erstelle Vorschaubild \\" & image.Name\\r\\n596:             else\\r\\n597:               Context.Scope.Library.CheckAsyncStopProcessing\\r\\n598:             end if\\r\\n599:         \\r\\n600: \\r\\n601:     Context.Write \\"\\" & vbCrLf\\r\\n602:     Context.Write \\"            <td \\"\\r\\n603: \\r\\n604:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n605: \\r\\n606:     Context.Write \\"class=\\"\\"zpSO-PictureGallery-tdx\\"\\" style=\\"\\"text-align:center;vertical-align:bottom\\"\\"\\"\\r\\n607: \\r\\n608:  else \\r\\n609: \\r\\n610:     Context.Write \\"class=\\"\\"zpSO-PictureGallery-td\\"\\" style=\\"\\"text-align:center;vertical-align:middle\\"\\"\\"\\r\\n611: \\r\\n612:  end if \\r\\n613: \\r\\n614:     Context.Write \\">\\" & vbCrLf\\r\\n615:     Context.Write \\"            \\" & vbTab & \\"<a href=\\"\\"\\"\\r\\n616: \\r\\n617: Context.Write image.VirtualPathRelative\\r\\n618: \\r\\n619:     Context.Write \\"\\"\\" title=\\"\\"\\"\\r\\n620: \\r\\n621: Context.Write image.Description\\r\\n622: \\r\\n623:     Context.Write \\"\\"\\" class=\\"\\"thickbox\\"\\" rel=\\"\\"gallery\\"\\r\\n624: \\r\\n625: Context.Write article.ID\\r\\n626: \\r\\n627:     Context.Write \\"\\"\\">\\" & vbCrLf\\r\\n628:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"<img class=\\"\\"zpSO-PictureGallery-img\\"\\" src=\\"\\"\\"\\r\\n629: \\r\\n630: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )\\r\\n631: \\r\\n632:     Context.Write \\"\\"\\" border=\\"\\"0\\"\\" alt=\\"\\"\\"\\" />\\" & vbCrLf\\r\\n633:     Context.Write \\"            \\" & vbTab & \\"</a>\\" & vbCrLf\\r\\n634:     Context.Write \\"                \\"\\r\\n635: \\r\\n636:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n637: \\r\\n638:     Context.Write \\"\\" & vbCrLf\\r\\n639:     Context.Write \\"                \\" & vbTab & \\"<div class=\\"\\"bildunterschrift\\"\\">\\" & vbCrLf\\r\\n640:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n641: \\r\\n642:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 then \\r\\n643: \\r\\n644:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-number\\"\\">\\"\\r\\n645: \\r\\n646: Context.Write index+1\\r\\n647: \\r\\n648:     Context.Write \\"</span>\\"\\r\\n649: \\r\\n650:  end if \\r\\n651: \\r\\n652:     Context.Write \\"\\" & vbCrLf\\r\\n653:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n654: \\r\\n655:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n656: \\r\\n657:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-name\\"\\">\\"\\r\\n658: \\r\\n659: Context.Write image.Name\\r\\n660: \\r\\n661:     Context.Write \\"</span>\\"\\r\\n662: \\r\\n663:  end if \\r\\n664: \\r\\n665:     Context.Write \\"\\" & vbCrLf\\r\\n666:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n667: \\r\\n668:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n669: \\r\\n670:     Context.Write \\"\\" & vbCrLf\\r\\n671:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n672: \\r\\n673:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n674: \\r\\n675:     Context.Write \\"<br />\\"\\r\\n676: \\r\\n677:  end if \\r\\n678: \\r\\n679:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-desc\\"\\">\\"\\r\\n680: \\r\\n681: Context.Write image.Description\\r\\n682: \\r\\n683:     Context.Write \\"</span>\\" & vbCrLf\\r\\n684:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n685: \\r\\n686:  end if \\r\\n687: \\r\\n688:     Context.Write \\"\\" & vbCrLf\\r\\n689:     Context.Write \\"                \\" & vbTab & \\"</div>\\" & vbCrLf\\r\\n690:     Context.Write \\"                \\"\\r\\n691: \\r\\n692:  end if \\r\\n693: \\r\\n694:     Context.Write \\"\\" & vbCrLf\\r\\n695:     Context.Write \\"            </td>\\" & vbCrLf\\r\\n696:     Context.Write \\"        \\"\\r\\n697: \\r\\n698: else\\r\\n699: \\r\\n700:     Context.Write \\"\\" & vbCrLf\\r\\n701:     Context.Write \\"            <td>&nbsp;</td>\\" & vbCrLf\\r\\n702:     Context.Write \\"        \\"\\r\\n703: \\r\\n704: end if\\r\\n705: \\r\\n706:     Context.Write \\"\\" & vbCrLf\\r\\n707:     Context.Write \\"    \\"\\r\\n708: \\r\\n709: \\r\\n710:         index = index + 1\\r\\n711:     next\\r\\n712:     \\r\\n713: \\r\\n714:     Context.Write \\"\\" & vbCrLf\\r\\n715:     Context.Write \\"</tr>\\" & vbCrLf\\r\\n716:     Context.Write \\"\\"\\r\\n717: \\r\\n718: next\\r\\n719: \\r\\n720:     Context.Write \\"\\" & vbCrLf\\r\\n721:     Context.Write \\"</table>\\" & vbCrLf\\r\\n722:     Context.Write \\"</div></div>\\"\\r\\n723: \\r\\n724: end sub\\r\\n725: \\r\\n",
	CompleteSourceText="001: option explicit\\r\\n002: \\r\\n003: ExecuteScript__\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n367: \\r\\n368: \\r\\n369: \\r\\n370: public sub ExecuteScript__()\\r\\n371: \\r\\n372: \\r\\n373: dim article\\r\\n374: set article = Context.Scope.CurrentPageItem\\r\\n375: dim items\\r\\n376: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )\\r\\n377: \\r\\n378: dim hassame\\r\\n379: hassame = false\\r\\n380: \\r\\n381: dim i\\r\\n382: for i=0 to items.Count-1\\r\\n383: dim item\\r\\n384: set item = items(i)\\r\\n385: \\r\\n386: if item.IsActive and (item.StyleName = \\"Bilderalbum\\" or item.StyleName = \\"Einzelnes Bild\\") then\\r\\n387: \\tif item.ID = article.ID  and not hassame then\\r\\n388: \\r\\n389: \\r\\n390:     Context.Write \\"\\" & vbCrLf\\r\\n391:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/jquery.js\\"\\"></script>\\" & vbCrLf\\r\\n392:     Context.Write \\"\\"\\r\\n393: \\r\\n394:  if Context.Scope.CurrentPage.GetInheritedAttribute(\\"picgallery_language\\").Value = \\"de\\" then \\r\\n395: \\r\\n396:     Context.Write \\"\\" & vbCrLf\\r\\n397:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_de.js\\"\\"></script>\\" & vbCrLf\\r\\n398:     Context.Write \\"\\"\\r\\n399: \\r\\n400:  elseif Context.Scope.CurrentPage.GetInheritedAttribute(\\"picgallery_language\\").Value = \\"en\\" then \\r\\n401: \\r\\n402:     Context.Write \\"\\" & vbCrLf\\r\\n403:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\" src=\\"\\"../_media/../media/Scripting/ThickBox/thickbox_en.js\\"\\"></script>\\" & vbCrLf\\r\\n404:     Context.Write \\"\\"\\r\\n405: \\r\\n406:  end if \\r\\n407: \\r\\n408:     Context.Write \\"\\" & vbCrLf\\r\\n409:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n410:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n411:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.height = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n412:     Context.Write \\"document.getElementsByTagName(\\"\\"body\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n413:     Context.Write \\"document.getElementsByTagName(\\"\\"html\\"\\")[0].style.minHeight = \\"\\"100%\\"\\";\\" & vbCrLf\\r\\n414:     Context.Write \\"</script>\\" & vbCrLf\\r\\n415:     Context.Write \\"\\"\\r\\n416: \\r\\n417: \\tend if\\r\\n418: hassame = true\\r\\n419: end if\\r\\n420: next\\r\\n421: \\r\\n422: \\r\\n423:     Context.Write \\"\\" & vbCrLf\\r\\n424:     Context.Write \\"<a name=\\"\\"a1194\\"\\"></a>\\" & vbCrLf\\r\\n425:     Context.Write \\"\\"\\r\\n426: \\r\\n427: \\r\\n428: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue(\\"Album\\")\\r\\n429: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n430: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)\\r\\n431: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue(\\"Anzahl Vorschaubilder pro Zeile\\")\\r\\n432: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )\\r\\n433: dim images : set images = assetCategory.Images\\r\\n434:  \\r\\n435: dim rowIndex : dim colIndex : dim index\\r\\n436: dim rowCount : rowCount = images.Count \\ imagesPerRow\\r\\n437: if images.Count mod imagesPerRow > 0 then \\r\\n438:     rowCount = rowCount + 1\\r\\n439: end if\\r\\n440: \\r\\n441: Context.Scope.Library.Log images.Count & \\" images...\\"\\r\\n442: Context.Scope.Library.CheckAsyncStopProcessing\\r\\n443: \\r\\n444: \\' Must use a prefix to allow multiple instances of the JavaScript on the page.\\r\\n445: dim prefix\\r\\n446: prefix = \\"prefix_1194_\\"\\r\\n447: \\r\\n448: \\r\\n449:     Context.Write \\"\\" & vbCrLf\\r\\n450:     Context.Write \\"<a name=\\"\\"\\"\\r\\n451: \\r\\n452: Context.Write prefix\\r\\n453: \\r\\n454:     Context.Write \\"thumbnails\\"\\"></a>\\" & vbCrLf\\r\\n455:     Context.Write \\"<div class=\\"\\"articlewrapper\\"\\"><div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n456:     Context.Write \\"\\"\\r\\n457: \\r\\n458:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n459: \\r\\n460:     Context.Write \\"<h1>\\"\\r\\n461: \\r\\n462: Context.Write Context.Scope.CurrentArticle.Name\\r\\n463: \\r\\n464:     Context.Write \\"</h1>\\"\\r\\n465: \\r\\n466:  end if \\r\\n467: \\r\\n468:     Context.Write \\"\\" & vbCrLf\\r\\n469:     Context.Write \\"<script type=\\"\\"text/javascript\\"\\">\\" & vbCrLf\\r\\n470:     Context.Write \\"var \\"\\r\\n471: \\r\\n472: Context.Write prefix\\r\\n473: \\r\\n474:     Context.Write \\"currentIndex = 0;\\" & vbCrLf\\r\\n475:     Context.Write \\"\\" & vbCrLf\\r\\n476:     Context.Write \\"var \\"\\r\\n477: \\r\\n478: Context.Write prefix\\r\\n479: \\r\\n480:     Context.Write \\"g = new Array();\\" & vbCrLf\\r\\n481:     Context.Write \\"var \\"\\r\\n482: \\r\\n483: Context.Write prefix\\r\\n484: \\r\\n485:     Context.Write \\"t = new Array();\\" & vbCrLf\\r\\n486:     Context.Write \\"\\" & vbCrLf\\r\\n487:     Context.Write \\"\\"\\r\\n488: \\r\\n489: \\r\\n490: for index=0 to images.Count-1\\r\\n491: \\r\\n492:     dim image\\r\\n493:     set image = images.Item(index)\\r\\n494: \\r\\n495:     Context.Scope.Library.CheckAsyncStopProcessing\\r\\n496: \\r\\n497: \\r\\n498:     Context.Write \\"\\" & vbCrLf\\r\\n499:     Context.Write \\"    \\"\\r\\n500: \\r\\n501: Context.Write prefix\\r\\n502: \\r\\n503:     Context.Write \\"g[\\"\\r\\n504: \\r\\n505: Context.Write index\\r\\n506: \\r\\n507:     Context.Write \\"] = \\"\\"\\"\\r\\n508: \\r\\n509: Context.Write image.VirtualPathRelative\\r\\n510: \\r\\n511:     Context.Write \\"\\"\\"; \\" & vbCrLf\\r\\n512:     Context.Write \\"    \\"\\r\\n513: \\r\\n514: Context.Write prefix\\r\\n515: \\r\\n516:     Context.Write \\"t[\\"\\r\\n517: \\r\\n518: Context.Write index\\r\\n519: \\r\\n520:     Context.Write \\"] = \\"\\"\\"\\r\\n521: \\r\\n522: Context.Write image.Name\\r\\n523: \\r\\n524:     Context.Write \\"\\"\\";\\" & vbCrLf\\r\\n525:     Context.Write \\"\\"\\r\\n526: \\r\\n527: next\\r\\n528: \\r\\n529:     Context.Write \\"\\" & vbCrLf\\r\\n530:     Context.Write \\"\\" & vbCrLf\\r\\n531:     Context.Write \\"function \\"\\r\\n532: \\r\\n533: Context.Write prefix\\r\\n534: \\r\\n535:     Context.Write \\"setimage( index )\\" & vbCrLf\\r\\n536:     Context.Write \\"{\\" & vbCrLf\\r\\n537:     Context.Write \\"    var img = new Image();\\" & vbCrLf\\r\\n538:     Context.Write \\"    img.src = \\"\\r\\n539: \\r\\n540: Context.Write prefix\\r\\n541: \\r\\n542:     Context.Write \\"g[index];\\" & vbCrLf\\r\\n543:     Context.Write \\"    window.document.images[\\"\\"\\"\\r\\n544: \\r\\n545: Context.Write prefix\\r\\n546: \\r\\n547:     Context.Write \\"pic\\"\\"].src = img.src;\\" & vbCrLf\\r\\n548:     Context.Write \\"    document.getElementById(\\"\\"\\"\\r\\n549: \\r\\n550: Context.Write prefix\\r\\n551: \\r\\n552:     Context.Write \\"desc\\"\\").innerHTML = \\"\\r\\n553: \\r\\n554: Context.Write prefix\\r\\n555: \\r\\n556:     Context.Write \\"t[index];\\" & vbCrLf\\r\\n557:     Context.Write \\"    \\"\\r\\n558: \\r\\n559: Context.Write prefix\\r\\n560: \\r\\n561:     Context.Write \\"currentIndex = index;\\" & vbCrLf\\r\\n562:     Context.Write \\"}\\" & vbCrLf\\r\\n563:     Context.Write \\"</script>\\" & vbCrLf\\r\\n564:     Context.Write \\"<table class=\\"\\"zpSO-PictureGallery\\"\\" cellpadding=\\"\\"0\\"\\" cellspacing=\\"\\"9\\"\\" border=\\"\\"0\\"\\">\\" & vbCrLf\\r\\n565:     Context.Write \\"\\"\\r\\n566: \\r\\n567: \\r\\n568: \\' -- Build the thumbnails grid.\\r\\n569: index = 0\\r\\n570: for rowIndex = 0 to rowCount-1\\r\\n571: \\r\\n572: \\r\\n573:     Context.Write \\"\\" & vbCrLf\\r\\n574:     Context.Write \\"<tr>\\" & vbCrLf\\r\\n575:     Context.Write \\"    \\"\\r\\n576: \\r\\n577: \\r\\n578:     for colIndex = 0 to imagesPerRow-1\\r\\n579:     \\r\\n580: \\r\\n581:     Context.Write \\"\\" & vbCrLf\\r\\n582:     Context.Write \\"        \\"\\r\\n583: \\r\\n584: \\r\\n585:         if index<=images.Count-1 then\\r\\n586:             set image = images.Item(index)\\r\\n587: \\r\\n588: \\t\\t\\tif image.height > image.width then\\r\\n589: \\t\\t\\t\\tthumbnailWidth = thumbnailHeight\\r\\n590: \\t\\t\\telse\\r\\n591: \\t\\t\\t\\tthumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue(\\"Breite der Vorschaubilder\\")\\r\\n592: \\t\\t\\tend if\\r\\n593: \\t\\t\\r\\n594:             if image.CheckCreateThumbnail( thumbnailWidth ) then\\r\\n595:               Context.Scope.Library.Log \\"Erstelle Vorschaubild \\" & image.Name\\r\\n596:             else\\r\\n597:               Context.Scope.Library.CheckAsyncStopProcessing\\r\\n598:             end if\\r\\n599:         \\r\\n600: \\r\\n601:     Context.Write \\"\\" & vbCrLf\\r\\n602:     Context.Write \\"            <td \\"\\r\\n603: \\r\\n604:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n605: \\r\\n606:     Context.Write \\"class=\\"\\"zpSO-PictureGallery-tdx\\"\\" style=\\"\\"text-align:center;vertical-align:bottom\\"\\"\\"\\r\\n607: \\r\\n608:  else \\r\\n609: \\r\\n610:     Context.Write \\"class=\\"\\"zpSO-PictureGallery-td\\"\\" style=\\"\\"text-align:center;vertical-align:middle\\"\\"\\"\\r\\n611: \\r\\n612:  end if \\r\\n613: \\r\\n614:     Context.Write \\">\\" & vbCrLf\\r\\n615:     Context.Write \\"            \\" & vbTab & \\"<a href=\\"\\"\\"\\r\\n616: \\r\\n617: Context.Write image.VirtualPathRelative\\r\\n618: \\r\\n619:     Context.Write \\"\\"\\" title=\\"\\"\\"\\r\\n620: \\r\\n621: Context.Write image.Description\\r\\n622: \\r\\n623:     Context.Write \\"\\"\\" class=\\"\\"thickbox\\"\\" rel=\\"\\"gallery\\"\\r\\n624: \\r\\n625: Context.Write article.ID\\r\\n626: \\r\\n627:     Context.Write \\"\\"\\">\\" & vbCrLf\\r\\n628:     Context.Write \\"            \\" & vbTab & \\"\\" & vbTab & \\"<img class=\\"\\"zpSO-PictureGallery-img\\"\\" src=\\"\\"\\"\\r\\n629: \\r\\n630: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )\\r\\n631: \\r\\n632:     Context.Write \\"\\"\\" border=\\"\\"0\\"\\" alt=\\"\\"\\"\\" />\\" & vbCrLf\\r\\n633:     Context.Write \\"            \\" & vbTab & \\"</a>\\" & vbCrLf\\r\\n634:     Context.Write \\"                \\"\\r\\n635: \\r\\n636:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 OR Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n637: \\r\\n638:     Context.Write \\"\\" & vbCrLf\\r\\n639:     Context.Write \\"                \\" & vbTab & \\"<div class=\\"\\"bildunterschrift\\"\\">\\" & vbCrLf\\r\\n640:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n641: \\r\\n642:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bilder nummerieren\\") = 1 then \\r\\n643: \\r\\n644:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-number\\"\\">\\"\\r\\n645: \\r\\n646: Context.Write index+1\\r\\n647: \\r\\n648:     Context.Write \\"</span>\\"\\r\\n649: \\r\\n650:  end if \\r\\n651: \\r\\n652:     Context.Write \\"\\" & vbCrLf\\r\\n653:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n654: \\r\\n655:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n656: \\r\\n657:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-name\\"\\">\\"\\r\\n658: \\r\\n659: Context.Write image.Name\\r\\n660: \\r\\n661:     Context.Write \\"</span>\\"\\r\\n662: \\r\\n663:  end if \\r\\n664: \\r\\n665:     Context.Write \\"\\" & vbCrLf\\r\\n666:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n667: \\r\\n668:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildbeschreibung anzeigen\\") = 1 then \\r\\n669: \\r\\n670:     Context.Write \\"\\" & vbCrLf\\r\\n671:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n672: \\r\\n673:  if Context.Scope.CurrentArticle.Values.GetValue(\\"Bildname anzeigen\\") = 1 then \\r\\n674: \\r\\n675:     Context.Write \\"<br />\\"\\r\\n676: \\r\\n677:  end if \\r\\n678: \\r\\n679:     Context.Write \\"<span class=\\"\\"zpSO-PictureGallery-desc\\"\\">\\"\\r\\n680: \\r\\n681: Context.Write image.Description\\r\\n682: \\r\\n683:     Context.Write \\"</span>\\" & vbCrLf\\r\\n684:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"\\"\\r\\n685: \\r\\n686:  end if \\r\\n687: \\r\\n688:     Context.Write \\"\\" & vbCrLf\\r\\n689:     Context.Write \\"                \\" & vbTab & \\"</div>\\" & vbCrLf\\r\\n690:     Context.Write \\"                \\"\\r\\n691: \\r\\n692:  end if \\r\\n693: \\r\\n694:     Context.Write \\"\\" & vbCrLf\\r\\n695:     Context.Write \\"            </td>\\" & vbCrLf\\r\\n696:     Context.Write \\"        \\"\\r\\n697: \\r\\n698: else\\r\\n699: \\r\\n700:     Context.Write \\"\\" & vbCrLf\\r\\n701:     Context.Write \\"            <td>&nbsp;</td>\\" & vbCrLf\\r\\n702:     Context.Write \\"        \\"\\r\\n703: \\r\\n704: end if\\r\\n705: \\r\\n706:     Context.Write \\"\\" & vbCrLf\\r\\n707:     Context.Write \\"    \\"\\r\\n708: \\r\\n709: \\r\\n710:         index = index + 1\\r\\n711:     next\\r\\n712:     \\r\\n713: \\r\\n714:     Context.Write \\"\\" & vbCrLf\\r\\n715:     Context.Write \\"</tr>\\" & vbCrLf\\r\\n716:     Context.Write \\"\\"\\r\\n717: \\r\\n718: next\\r\\n719: \\r\\n720:     Context.Write \\"\\" & vbCrLf\\r\\n721:     Context.Write \\"</table>\\" & vbCrLf\\r\\n722:     Context.Write \\"</div></div>\\"\\r\\n723: \\r\\n724: end sub\\r\\n725: \\r\\n",
	ExcepInfo=EXCEPINFO
	{
	},
	LineNumber=432,
	ColumnNumber=13,
	SourceLine="",
	SourceContext=0,
	Description="Objekt erforderlich: \\'assetCategory\\'",
	Data=ListDictionaryInternal
	{
		Count=0,
		Keys=NodeKeyValueCollection
		{
		},
		IsReadOnly=False,
		IsFixedSize=False,
		IsSynchronized=False,
		SyncRoot=Object
		{
		},
		Values=NodeKeyValueCollection
		{
		}
	},
	InnerException=null,
	TargetSite=RuntimeMethodInfo: Run,
	StackTrace="   bei ZetaProducer.RuntimeBusinessLogic.Code.Scripting.BaseInterpreter.Run()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.FormatGridItem()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Grids.RenderAreaGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderDispatcher.DoProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderPage.RenderCode(String renderText)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderPage.CreatePage()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderEngine.CreatePage(WebPage page)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Code.Rendering.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.Simple.SimpleBuildPublishForm.DoWorkBuild(Object sender, DoWorkEventArgs e)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.Common.AsyncRenderGuiBinder._bw_DoWork(Object sender, DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)",
	HelpLink=null,
	Source="ActiveScriptSite.ScriptError"
}